Labels:text | screenshot | display | software | computer icon | number | web page | operating system | font OCR: IstContacts Properties D PostChange Sub PostChange0 REM Force the list to highlight the name of the contact displayed by the Form. IF NOT IsNull ( Value ) THEN DIM rec AS Object DIM rContactID AS Integer rec = frmContact. GetRecordset () rNumRows = rec. GetRowCount ( ) FOR i = 1 TO rNumRows rec. Set CurRow( i ) rContactID = CINT ( rec. GetColVal( "CONTACTID" ) ) IF rContactID = CINT ( Value ) THEN EXIT FOR NEXT i END IF
